﻿Imports System
Imports System.Runtime.InteropServices

Namespace System.Workflow.Runtime.DebugEngine
    Friend NotInheritable Class ProgramNode
        Implements IWDEProgramNode
        ' Methods
        Public Sub New(ByVal controller As DebugController)
            Me.controller = controller
        End Sub

        Private Sub System.Workflow.Runtime.DebugEngine.IWDEProgramNode.Attach(ByRef programId As Guid, ByVal attachTimeout As Integer, ByVal detachPingInterval As Integer, <Out> ByRef hostName As String, <Out> ByRef uri As String, <Out> ByRef controllerThreadId As Integer, <Out> ByRef isSynchronousAttach As Boolean) Implements IWDEProgramNode.Attach
            Me.controller.Attach(programId, attachTimeout, detachPingInterval, hostName, uri, controllerThreadId, isSynchronousAttach)
        End Sub


        ' Fields
        Private controller As DebugController
    End Class
End Namespace

